with Ada.Text_Io;
use ada.Text_IO;

with Ada.Integer_Text_Io;
use Ada.Integer_Text_Io;

with Ada.Float_Text_Io;
use Ada.Float_Text_Io;

with Udvar_Pkg;
use Udvar_Pkg;

procedure F1 is
   Ty: Allat(Tyuk);
   L: Allat(Lo);
   Ny: Allat(Nyul);
   M: Allat(Marha);
   D: Allat(Diszno);
   K: Allat(Kecske);
   Udvar: Baromfi_Udvar(10); 
begin
   Felvetel(Udvar, Ty);
   Felvetel(Udvar, Ty);
   Felvetel(Udvar, Ny);
   Felvetel(Udvar, L);
   Felvetel(Udvar, M);
   Felvetel(Udvar, D);
   Felvetel(Udvar, D);
   Felvetel(Udvar, K);
   Felvetel(Udvar, K);
   Felvetel(Udvar, K);
   
   Put("Kecskek darabszama: ");
   Put(Darabszam(Udvar, Kecske));
   New_Line;
   Put("Kecske levagasa");
   Levagas(Udvar, K);
   Put(Darabszam(Udvar, Kecske)'Image & " db");
end F1;

